home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The Ultimate Frank Lloyd…ght - America's Architect
/
Ultimate Frank Lloyd Wright, The - America's Architect (1994)(Microsoft Home).iso
/
pre
/
flw
/
flwat02.dir
/
00039_Script_39
< prev
next >
Wrap
Text File
|
1994-11-15
|
4KB
|
174 lines
on startMovie
global nowFrame, lastFrame, currMM, reEntry, dialogOn
global rolledAlready, thumbTrack, switchState,jmpFrame
set dialogOn = FALSE
set switchState = FALSE
set rolledAlready = FALSE
set currMM = "FLWWW"
puppetSprite 10, TRUE
puppetSprite 21, TRUE
puppetSprite 22, TRUE
puppetSprite 23, TRUE
set the immediate of sprite 23 to TRUE
set the stretch of sprite 23 to FALSE
put "On startMovie: " & the freeBytes
end startMovie
on stepMovie
global nowFrame,currFrame
if nowFrame <> currFrame then
seeAlsoList
set currFrame = nowFrame
end if
end stepMovie
on stopMovie
set the castNum of sprite 21 to 1050
puppetSprite 21, FALSE
put " " into field "seeAlsoText"
updateStage
end stopMovie
on scrollRoll
global switchState
if rollover(13) then
set the forecolor of sprite 13 to 228
else
set the forecolor of sprite 13 to 255
end if
if rollover(14) then
set the forecolor of sprite 14 to 228
else
set the forecolor of sprite 14 to 255
end if
if the frame >= 1 and the frame < 15 then
if the castNum of sprite 7 = 38 then
if the castNum of sprite 13 <> the number of cast "nextTxUp" then
set the castNum of sprite 13 to the number of cast "nextTxRt"
end if
set the castNum of sprite 14 to the number of cast "prevTxNull"
else if the castNum of sprite 7 = 37 then
set the castNum of sprite 13 to the number of cast "nextTxNull"
if the castNum of sprite 14 <> the number of cast "prevTxUp" then
set the castNum of sprite 14 to the number of cast "prevTxRt"
end if
end if
end if
updateStage
end scrollRoll
on multiScreenPup
puppetSprite 7, TRUE
puppetSprite 8, TRUE
puppetSprite 11, TRUE
puppetSprite 13, TRUE
puppetSprite 14, TRUE
end multiScreenPup
on saveLocals
global lastFrame, nowFrame, lastMovie
set lastFrame = nowFrame
set lastMovie = the movie
end saveLocals
on buttonState
global FrankNav
global thumbTrack, thumbFrame, bflag, dialogOn
if dialogOn = FALSE then
glassCheck
scrollRoll
-- don't check global buttons unless mouse is down at bottom
if (the mouseV > 300) or (bFlag = TRUE) then
doState
end if
end if
end buttonState
on atForStep
puppetSprite 7, FALSE
puppetSprite 8, FALSE
puppetSprite 11, FALSE
puppetSprite 13, FALSE
puppetSprite 14, FALSE
if the frame = 18 then
go to movie "FLWAT03"
else
go to marker(+1)
end if
updateStage
end atForStep
on atBackStep
puppetSprite 7, FALSE
puppetSprite 8, FALSE
puppetSprite 11, FALSE
puppetSprite 13, FALSE
puppetSprite 14, FALSE
if the frame < 3 then
go to frame "at000bld005°°°" of movie "FLWAT01"
else
go to marker(-1)
end if
updateStage
end atBackStep
on textRoll txHt
global origLocV, rolledAlready, topHat, horNess, dialogOn, SeeAlsoBox
if dialogOn = FALSE and SeeAlsoBox = FALSE then
set topHat = txHt
if rolledAlready = FALSE then
set origLocV = the locV of sprite 8
end if
if the mouseH < 414 and the mouseV > 366 and the mouseV < 429 then
set the locV of sprite 8 to txHt
set rolledAlready = TRUE
else if the mouseH > 414 or the mouseV > 429 or the mouseV < topHat then
set the locV of sprite 8 to origLocV
end if
end if
end textRoll
on glassCheck
if rollOver(10) then
set the castNum of sprite 10 to 94
else
set the castNum of sprite 10 to 2
end if
updateStage
end glassCheck
on nextList
global switchState
puppetSprite 11, FALSE
puppetSprite 13, FALSE
puppetSprite 14, FALSE
set switchState = TRUE
if rollover(13) then
set currCast = the castNum of sprite 7
set the castNum of sprite 7 to (the number of cast currCast - 1)
set the castNum of sprite 11 to 97
end if
end nextList
on prevList
global switchState
puppetSprite 11, FALSE
puppetSprite 13, FALSE
puppetSprite 14, FALSE
set switchState = TRUE
if rollover(14) then
set currCast = the castNum of sprite 7
set the castNum of sprite 7 to (the number of cast currCast + 1)
set the castNum of sprite 11 to 97
end if
end prevList